home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_217.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  566 b   |  30 lines
  1. property spriteNum, md
  2. global Current, curscript
  3.  
  4. on beginSprite me
  5.   md = 0
  6. end
  7.  
  8. on mouseDown me
  9.   md = 1
  10. end
  11.  
  12. on mouseUp me
  13.   md = 0
  14. end
  15.  
  16. on mouseUpOutSide me
  17.   md = 0
  18. end
  19.  
  20. on mouseWithin me
  21.   if md then
  22.     curscript = "current"
  23.     sprite(spriteNum - 10).playin = 0
  24.     sprite(spriteNum + 1).locH = the mouseH
  25.     Current = integer(max(1, (the mouseH - sprite(spriteNum).left) / float(sprite(spriteNum).width) * sprite(spriteNum - 10).mycount))
  26.     sprite(spriteNum - 10).pos = Current
  27.     member("current_point_field").text = " " & string(Current)
  28.   end if
  29. end
  30.